home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / datadivisiondoxdisk4.dms / datadivisiondoxdisk4.adf / MALEDICTION-HD / MAL_HD-INSTALL < prev    next >
Text File  |  1995-08-08  |  2KB  |  85 lines
  1. ;$VER:Script generated by DRACS for MALEDICTION (aga) hd-install
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Intro-Txt
  9. (cat "\n\nWelcome to \n"
  10. "MALEDICTION (aga) hd-install\n"
  11. "Hard Disk Install Script\n\n\n\n"
  12. "This script has been generated by DRACS\n\n"
  13. ))(set #Warning-Txt
  14. (cat "Warning !\n\n\n"
  15. "MALEDICTION (aga) hd-install requires 3 MB free on your disk \n\n"
  16. "Think of it before destroying your disk...\n\n"
  17. ))(set #Path-Txt
  18. (cat "Select the target directory. A directory MALEDICTION will "
  19. "be created there."
  20. ))(set #Path-Help
  21. (cat "\nThis section lets you choose the "
  22. "target directory to install MALEDICTION (aga) hd-install. \n\n"
  23. "A directory MALEDICTION will be created there.\n\n"
  24. "Default is Work:\n\n\n"
  25. @askdir-help
  26. ))
  27. (set Assign-Help-Txt
  28. (cat "\nA script located in the target directory wil make "
  29. "the Assigns. The User-Startup will be patched in order "
  30. "to call this script.\n\n\n"
  31. @startup-help
  32. ))
  33. ; Main 
  34.  
  35. (message #Intro-Txt)
  36. (message #Warning-Txt)
  37. (set target 
  38. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  39. ))
  40. (set @default-dest target)
  41. (copyfiles
  42. (prompt "Copying to " #target)
  43. (help @copy-files-help)
  44. (source "DISK1:")
  45. (dest (tackon target "MALEDICTION"))
  46. (pattern "#?")
  47. )
  48. (complete 20)
  49. (copyfiles
  50. (prompt "Copying to " #target)
  51. (help @copy-files-help)
  52. (source "DISK2:")
  53. (dest (tackon target "MALEDICTION"))
  54. (pattern "#?")
  55. )
  56. (complete 45)
  57. (copyfiles
  58. (prompt "Copying to " #target)
  59. (help @copy-files-help)
  60. (source "DISK3:")
  61. (dest (tackon target "MALEDICTION"))
  62. (pattern "#?")
  63. )
  64. (complete 70)
  65. (copyfiles
  66. (prompt "Copying to " #target)
  67. (help @copy-files-help)
  68. (source "DISK4:")
  69. (dest (tackon target "MALEDICTION"))
  70. (pattern "#?")
  71. )
  72. (complete 95)
  73. (copyfiles
  74. (prompt "Copying to " #target)
  75. (source "MakeAssigns")
  76. (dest (tackon target "MALEDICTION"))
  77. )
  78. (startup "Assigns for MALEDICTION (aga) hd-install"
  79. (help "#Assign-Help-Txt")
  80. (prompt "\n\nA script will be launched from your User-Startup\n\n"
  81. "Your User-Startup must be patched to do that.")
  82. (command (tackon target "MakeAssigns"))
  83. )
  84. (complete 100)
  85.